﻿Module Module1
    Public Sub PURI()

        Dim U As Decimal
        Dim R As Decimal
        Dim I As Decimal
        Dim P As Decimal

        If Form1.CheckBox1.Checked Then
            R = Form1.MetroNumeric2.Value
            I = Form1.MetroNumeric3.Value
            U = R * I
            Form1.MetroNumeric1.Value = U
        End If
        If Form1.CheckBox2.Checked Then
            U = Form1.MetroNumeric1.Value
            I = Form1.MetroNumeric3.Value
            R = U / I
            Form1.MetroNumeric2.Value = R
        End If
        If Form1.CheckBox3.Checked Then
            U = Form1.MetroNumeric1.Value
            R = Form1.MetroNumeric2.Value
            I = U / R
            Form1.MetroNumeric3.Value = I
        End If
        If Form1.CheckBox4.Checked Then
            U = Form1.MetroNumeric1.Value
            I = Form1.MetroNumeric3.Value
            P = U * I
            Form1.MetroNumeric4.Value = P
        End If

        Form1.MetroLabel1.BackColor = Color.Orange
        Form1.MetroLabel3.BackColor = Color.Orange
        Form1.MetroStatusStrip1.BackColor = Color.Orange
        If Form1.MetroTabControl1.TabIndex = "" Then
            Form1.MetroLabel1.BackColor = Color.FromArgb(0, 122, 204)
            Form1.MetroLabel3.BackColor = Color.FromArgb(0, 122, 204)
            Form1.MainMenuStrip.BackColor = Color.FromArgb(0, 122, 204)
        End If
    End Sub
    Public Sub PURI_U()
        If Form1.CheckBox1.Checked Then

        End If

    End Sub

End Module
